home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / gfx / fu1_62.lha / fu / Formulas / Wineglass.Form < prev    next >
Text File  |  1994-04-14  |  275b  |  34 lines
  1. Wineglass
  2. {
  3.     {
  4.         mirrorx
  5.         x1=-2.0
  6.         x2= 2.0
  7.         y1=-1.75
  8.         y2= 1.75
  9.         par1.r=2.0
  10.         par1.i=0.0
  11.         bailout=4.0
  12.     }
  13.     {
  14.         z=pixel
  15.         c=pixel
  16.     }
  17.     {
  18.         z=z*z
  19.         z=z+c
  20.         c1=imag(c)
  21.         c1=c1+[1.0,0.0]
  22.         c2=real(c)
  23.         c2=c2/[2.0,0.0]
  24.         c=c1*c2
  25.         c=c+z
  26.         w=abs(z)
  27.     }
  28.     {
  29.         w>bailout
  30.     }
  31.     {
  32.     }
  33. }
  34.